Permalink
Browse files

I should prefer Text to String

  • Loading branch information...
1 parent 5094bce commit bfabe80c0131d0202a429f4ea5391d0418a4dc3e @freizl freizl committed May 15, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 test/snap.hs
View
@@ -91,7 +91,7 @@ app :: SnapletInit App App
app = makeSnaplet "app" "An snaplet example application." Nothing $ do
h <- nestSnaplet "heist" heist $ heistInit "templates"
locale <- liftIO $ getDefaultLocale
- i <- nestSnaplet "i18n" i18n $ initI18NSnaplet locale Nothing
+ i <- nestSnaplet "i18n" i18n $ initI18NSnaplet (Just "zh_CN") Nothing
addRoutes routes
return $ App h i

0 comments on commit bfabe80

Please sign in to comment.