diff options
Diffstat (limited to 'src/Service.hs')
| -rw-r--r-- | src/Service.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Service.hs b/src/Service.hs index 580c17d..f15662e 100644 --- a/src/Service.hs +++ b/src/Service.hs @@ -172,7 +172,7 @@ svcSetLocal x = modify $ \st -> st { svcLocal = x } svcSelf :: ServiceHandler s UnifiedIdentity svcSelf = maybe (throwError "failed to validate own identity") return . - validateIdentity . lsIdentity . fromStored =<< svcGetLocal + validateExtendedIdentity . lsIdentity . fromStored =<< svcGetLocal svcPrint :: String -> ServiceHandler s () svcPrint str = afterCommit . ($ str) =<< asks svcPrintOp |