diff --git a/src/Types/Commands.hs b/src/Types/Commands.hs
index b510f3a..39fe8f5 100644
--- a/src/Types/Commands.hs
+++ b/src/Types/Commands.hs
@@ -53,7 +53,7 @@ instance Read BuildType where
     case map toLower s of
         "carthage"   -> return Carthage
         "podbuilder" -> return PodBuilder
-        a            -> error $ "Unrecognized BuildType '" ++ a ++ "'"
+        _ -> pfail
 
 data RomeListPayload = RomeListPayload { _listMode              :: ListMode
                                        , _listPlatforms         :: [TargetPlatform]