Fails if a Dict is empty.

import Dict


notEmpty "error" <| Dict.empty
--> Err ( "error" , [])


notEmpty "error" <| Dict.fromList [ (1, 1) ]
--> Ok <| Dict.fromList [ (1, 1) ]