Move key templates to new templates/key dir

src/Vervis/Handler/Key.hs

@@ -52,7 +52,7 @@ getKeysR user = do
     defaultLayout $ do
         setTitle $ toHtml $
             intercalate " > " ["Vervis", "People", user, "Keys"]
-        $(widgetFile "keys")
+        $(widgetFile "key/keys")
 
 postKeysR :: Text -> Handler Html
 postKeysR user = do
@@ -68,10 +68,10 @@ postKeysR user = do
             redirectUltDest HomeR
         FormMissing -> do
             setMessage "Field(s) missing"
-            defaultLayout $(widgetFile "key-new")
+            defaultLayout $(widgetFile "key/key-new")
         FormFailure _l -> do
             setMessage "Invalid input, see below"
-            defaultLayout $(widgetFile "key-new")
+            defaultLayout $(widgetFile "key/key-new")
 
 getKeyNewR :: Text -> Handler Html
 getKeyNewR user = do
@@ -82,7 +82,7 @@ getKeyNewR user = do
     ((_result, widget), enctype) <- runFormPost $ newKeyForm pid
     defaultLayout $ do
         setTitle $ toHtml $ "Vervis > People > " <> user <> " > New Key"
-        $(widgetFile "key-new")
+        $(widgetFile "key/key-new")
 
 getKeyR :: Text -> Text -> Handler Html
 getKeyR user tag = do
@@ -95,4 +95,4 @@ getKeyR user tag = do
     defaultLayout $ do
         setTitle $ toHtml $
             intercalate " > " ["Vervis", "People", user, "Keys", tag]
-        $(widgetFile "key")
+        $(widgetFile "key/key")