Autocomplete types

1 files changed, 15 insertions, 0 deletions

diff --git a/Handler/Types.hs b/Handler/Types.hs
new file mode 100644
index 0000000..04055ad
--- /dev/null
+++ b/Handler/Types.hs
@@ -0,0 +1,15 @@
+module Handler.Types where
+
+import Import
+
+import Data.Set (Set)
+import qualified Data.Set as Set
+
+getTypesR :: Handler Value
+getTypesR = returnJson <=< runDB $ do
+  Set.fromList . map (kindType . entityVal) <$> selectList [] []
+
+getTypeR :: Handler Value
+getTypeR = do
+  kind <- maybe (invalidArgs ["kind"]) return =<< lookupGetParam "kind"
+  returnJson <=< runDB $ kindType . entityVal <$> getBy404 (UniqueKind $ normalizeKind kind)