This commit is contained in:
Joey Hess 2011-11-02 14:24:44 -04:00
parent eec137f33a
commit c33313c50b

View file

@ -30,6 +30,5 @@ start ws = do
perform :: String -> CommandPerform
perform description = do
initialize
u <- getUUID
describeUUID u description
getUUID >>= describeUUID description
next $ return True