wrote many

[Rakka.git] / Rakka / Wiki / Interpreter / Base.hs

diff --git a/Rakka/Wiki/Interpreter/Base.hs b/Rakka/Wiki/Interpreter/Base.hs
index fa225e6b27144a5a253852bb66faacaf36401dd8..c749589609eeb66cc9a891e795c19bd0be101157 100644 (file)
--- a/Rakka/Wiki/Interpreter/Base.hs
+++ b/Rakka/Wiki/Interpreter/Base.hs
@@ -3,7 +3,6 @@ module Rakka.Wiki.Interpreter.Base
     )
     where
 
-import           Rakka.Page
 import           Rakka.Wiki
 import           Rakka.Wiki.Interpreter
 import           Rakka.Wiki.Interpreter.Base.Image
@@ -48,7 +47,5 @@ pageNameInterp :: Interpreter
 pageNameInterp = InlineCommandInterpreter {
                    iciName      = "pageName"
                  , iciInterpret
-                     = \ ctx (InlineCommand _ _ _) -> case ctxPage ctx of
-                                                        Nothing   -> return $ Text "(None)"
-                                                        Just page -> return $ Text $ pageName page
+                     = \ ctx _ -> return $ Text (ctxPageName ctx)
                  }
\ No newline at end of file