Add debug route and refactor some code

src/Lisa/Squeak.hs

@@ -120,6 +120,7 @@ removePrefixModifier prefix = lowercaseFirst . stripPrefix prefix
         lowercaseFirst (c:cs) = Char.toLower c : cs
         lowercaseFirst [] = error $ "Prefix " ++ prefix ++ " ate all my input"
 
+removePrefixOpts :: String -> Options
 removePrefixOpts prefix = defaultOptions { fieldLabelModifier = removePrefixModifier prefix }
 
 data Document = Document