Move faq file

Author: easafe

src/Server/Faq.purs

@@ -6,7 +6,7 @@ import Effect (Effect)
 import Flame.Html.Attribute as HA
 import Flame.Html.Element as HE
 import Flame.Renderer.String as FRS
-import Server.Faq as SA
+import Shared.Faq as SA
 import Server.Privacy as SP
 import Server.Template (externalDefaultParameters)
 import Server.Template as ST

src/Server/Help/Template.purs

@@ -112,7 +112,7 @@ save loggedUserId fields = do
                   Save (Just fileName) → do
                         isNaughty <- R.liftAff <<< SF.isNsfw $ localBasePath <> uploadFolder <> fileName
                         if isNaughty then do
-                              SPD.saveForApproval connection loggedUserId Avatar fileName
+                              SPD.saveForApproval connection loggedUserId Avatar (spy ("naughty avatar for " <> show loggedUserId) fileName)
                               pure <<< Just $ Avatar /\ fileName
                         else do
                               SPD.saveField connection loggedUserId Avatar $ Just fileName

src/Server/Profile/Action.purs

@@ -5,7 +5,7 @@ import Prelude
 import Flame (Html)
 import Flame.Html.Attribute as HA
 import Flame.Html.Element as HE
-import Server.Faq as SH
+import Shared.Faq as SH
 import Server.Privacy as SP
 
 import Server.Terms as ST