added uniqueUser

Handler/Profile.hs

@@ -52,7 +52,7 @@ getProfileR ownerId = do
 
 getUserR :: Text -> Handler Html
 getUserR ownerName = do
-  tempOwner <- runDB $ selectFirst [UserName ==. ownerName] []
+  tempOwner <- runDB $ getBy $ UniqueUser ownerName
   case tempOwner of
     Just (Entity ownerId _) ->
       getProfileR ownerId

config/models

@@ -22,6 +22,7 @@ User
     salted ByteString
     albums [AlbumId]
     admin Bool
+    UniqueUser name
     deriving Typeable Eq Show
 Activator
     token Text